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IDENT 7120057 RS OST IBehoBDsMaR “Baits BL 1008 


MARARARAAARAAALALALLALE SALES SE AEE SESE REET E SERRE EEE EERE ERE E EES EERE EEE CEES 


COPYRIGHT | (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHES” RESERVED 


THIS SOFTWARE IS cia UNDER A LICENSE AND MAY BE USED AND sores 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION Cf THE "ABOV E Tygpet hag NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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+++ 
; FACILITY: General Utility Library 


; ABSTRACT: 


Extend precision of multiplier, myst ttely by gui ttoy ieend 
and extract integer and fractional portion of result. 


; ENVIRONMENT: User Mode, AST Reentrant 


SDOSOOOOSOOSOOOSOSOSOSOSOSOSOSOOSOSOOSOSOSOOSOSOSOOSOOOOOOOOOOO 


SOOCOCCOCOOOCOCOCOOOSOCOOSSSOSOSCOSCSOOOSOSO OOOO OOOOOOOCOOOO 


; MODIFIED BY: 
SBL, P+ ey Di : VERSION 00 
Original 


DOSOSOOOSOSOOSOOSOOSOOOSOSOSOSOSOSOSOSOSOSOSOOOOOOSOOOSOOOOOOOO 


01 - 
802 - - Put version number in stenderd format: one digit of version 
number one three digits of edit gyener-. Maes 16-NOV-7 
4 - Add o PSECT directive, mh ogc? 
be - Minor” wt. improvements. B ihe 
005 - Use local handler to in “ “that. ia, tad other than those documented 
are resignalled. SBL 25-Sept-198 


SOOOOCOCOSOOOOSOOOOOOOOOSOOSSOOSOOOOSOSOOOOSOOOOOOOOOOOOOOOOOO 


ROOD NA MNES WIN O ODNAUN EWN 9 OODNOA UE WIN @ O OONOAOUE WH OOONOU ES wh 
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: AUTHOR: Steven B. Lionel, CREATION DATE: 04-Oct-78 
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y UBpRMOPS DEELARAT PROD. MAR: 1 


o< 


~SBTTL DECLARATIONS 
INCLUDE FILES: 


SCHF DEF 
SSSDEF 


EXTERNAL SYMBOLS: 


Condition handling macros 
System symbol definitions 


-EXTRN LIBSSIG_TO_RET Library routine to convert a signal 
to error return to caller 
of LIBSEMODD 


RO = signaled condition 


MACROS: 


: EQUATED SYMBOLS: 


00000004 mulr = 4 ; multiplier 

00000008 mulrx = 8 ; multiplier extension 
0000000¢ muld = 12 ; multiplican 

00000010 0 nt = : jateger portion returned 
00000014 fract = 20 ; fractional portion returned 


3; OWN STORAGE: 


PSECT DECLARATIONS: 


-PSECT _LIBSCODE PIC, USR, CON, REL, LCL, SHR, - 
EXE, RD, NOWRT, LONG 


OO 00 09 09 09 09 09 69 09 09 09 SI NI NNN NNN PAA AAA AAO TIT 
NRO OONAWNE WN 0 OD NAUE WIN (OOD NA UNE WN O OOO Ww 
Se . 


= 
cond 
om 
Ax 
me 
32a 
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-SBTTL LIBSEMODD = Extended multiply and integerize 


++ 
; FUNCTIONAL DESCRIPTION: 


} esenoey provides the functionality of the VAX hardware 
nstruction EMODD to high-level Language users. 


The floating petng multiplier qxtenston operand (second operand) 
is pentorenetes with the floating point multiplier (first 
operand) to gain 8 additional low order fraction bits. 

The multiplicand operand is meth eh; by the extended 
multiplier operand. After ayl tie cation, the integer 
portion is extracted and a 64 bit floating point number is 
formed from the fractional part of the product by truncating 
extra bits. The multiplication is such that the result is 
gquixelent to the exact product truncated to a fraction 
field of 64 bits. Regarding the result as the sum of an 
integer and fraction of the same sign, the integer operand 
is replaced by the integer part of the result and the 
fraction operand is replaced by the rounded fractional 

part of the result. 


; CALLING SEQUENCE: 


status.wlc.v = LIBSEMODD (mulr.rd.r, mulrx.rb.r, muld.rd.r, 
nt.wl.r, fract.wd.r 


; INPUT PARAMETERS: 


mulr.rd.r - floating point multiplier 
mulrx.rb.r - byte to be appended to multiplier fraction 
muld.rd.r - floating point multiplicand 


; IMPLICIT INPUTS: 


; OUTPUT PARAMETERS: 


NONE 
int.wl.r - integer portion of result 
fract.wd.r - fractional portion of result 


; IMPLICIT OUTPUTS: 


NONE 


; FUNCTION VALUE: 


SS$_NORMAL - successful execution 

SS$_INTOVF - integer overflow or floating overflow 
SS$_FLTUND - floating underflow 

$S$_ROPRAND - reserved operand 


; SIDE EFFECTS: 


a a a st a hs ss a ts ts tb ss a a ss ts ss ee a ss ss 8 


Any other exceptions are signalled. 


OEE 
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o VO 
- Extended mult and integ 6-SEP-1984 


ta cr 4-00 
-00 LIBRTL.SRCJLIBEMODD.MAR; 1 


Page (3) 


4000 
6D 15'°AF 9E 


ENTRY LIBSEMODD, “M<IV> ; Entry point 
MOVAB B*HANDLER, (FP) 


wr 
ee 
4 
3 


Enable local handler to 
process exceptions 


10 BC OC BC O08 BC % +! 74 EMODD a@mulr(AP), - perform multiplication 


ende 
MODD 
1 
1 
1 
1 
: 5 
139 
: 158 
11. +159 @mulrx(AP), = 3; trap on exception to 
11 160 a@muld(AP), - 3; handler which will 
7. @int(AP), - 3; unwind a return error 
11 196 afract(AP) 3 condition in RO to 
Bait 197 ; caller of LIBSEMODD. 
50 01 9A Batt 193 MOVZBL #1, RO 3; success status code 
04 a014 189 RET 3; return 
015 168 
Bate 192 HANDLER: 
0000 0015 170 -WORD 0 
Br 
0017 158 3 If the exception is one of the documented exceptions for this routine, 
0017 174; «call LIB$SIG_TO_RET to return it as a status. Otherwise, resignal. 
0017 175; #Also, resignal Tf the depth is not zero. 
gr tg 
50 O08 AC 00 $017 178 MOVL CHFSL_MCHARGLST(AP), RO ; Get mechanism vector address 
08 AO D5 0018 179 TSTL  CHFSLZMCH_DEPTH(RO) : Is depth zero? 
32 is $13 180 BNEQ 90$ ; If not, resignal 
51 O04 AC OD B05 181 MOVL CHFSL_SIGARGLST(AP), R1 ; Get signal vector address 
50 04 A1 00 0024 1 ¢ MOVL CHFSL_SIG_NAME(R1), RO ; Get signalled condition 
047C 8F 50 sf 028 1 CMPW RO, #5S$_INTOVF ; Compare conditions 
18 1 02D 184 BEQL ; If it matches, don't resignal 
049C 8F s? sf . 4 ! 2 er RO, #SS$_FLTUND 
0454 8F 30 et 0 4 : i error RO, #SS$_ROPRAND 
04C4 8F 50 8} 7 ; cHPY RO, #SS$_FLTUND_F 
04 Al 049C BF 3C 004 191 MOVZWL #SSS$_FLTUND, CHFSL_SIG_NAME(R1) ; Change fault code to trap code 
00000000'°GF  6C FA 04A 19¢ 10$: CALLG CAP); G6*LIB$SIG_TO-RET : Return signal as a status 
50 0918 8F rf 089 194 90$: MOVZWL #SSS$_RESIGNAL, RO ; Resignal condition 
04 03 132 RET 
3 199 - END 
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Symbol table 


CHF SL_MCHARGLST s 
CHFSLIMCH DEPTH : 
CHF SL_-SIGARGLST s 
CHFSL_S1G_NAME = 

= 
HANDLER 
INT = 
LIBSEMODD 
LIB$SIG_TO_RET ereeenee 
MULD = 00 
MULR = 
og = 
SS$_FLTUND : 
SS$_FLTUND_F : 
SS$_INTOVF = 000 
SS$_RESIGNAL = 00000 
$S$_ROPRAND = 00000 
PSECT name Allocation 
> . 00000000 
SABS$ 0000000 
_LIBSCODE 0000005 
Phase Page faults 
Initialization 29 
Command processing 110 
Pass 191 
Symbol table sort 0 
Pass 2 50 
Symbol table output 4 
Psect synopsis output 2 
Cross-reference output 0 
Assembler run totals 388 


ive working set Limit was 1050 pages. 
2152 (43 pages) of virtual memory were used to buffer the intermediate 
hold 428 non-local ane 


1 bytes 


There were 30 pages of symbol table space allocated t 
197 source Lines were read in Pass 1, producin 
pages of virtual memory were used to define 


ooooooooo 


02 


06 


PSECT No. Attributes 


0.) 00 ¢ 0.) NOPIC USR 
0.) O1¢ #1.) \NOPIC USR 
88.) 02 ¢ 2.) PIC USR 


See eee Se ee eR ee ee ee Boe et 


$uoaceevesesesoosecesesco 


13 object records in Pass 
macros. 


gode. 
local symbols. 


- 1 
Nemope.man:1 28 ¢% te 


OSHR NOEXE NORD NOWRT NOVEC BYTE 
OSHR EXE 


WRT NOVEC BYTE 


RD 
RD NOWRT NOVEC LONG 


fmm renn emo row e sm oemesn ees es + 


! Macro Library statistics ! 


eevee n woes m sows wo emo en wee ~ 


Macro Library name Macros defined 
-$255$0UA28: CSYSLIBISTARLET.MLB; 2 5 
486 GETS were required to define 5 macros. 


There were no errors, warnings or information messages. 
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